home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
A-Monthly Disks
/
(c)aaf.d64
/
print instr
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
2KB
|
57 lines
10 A$="ABCDEFGHIJKLMNOPQ":A$=A$+A$+A$+A$+A$:A$=A$+A$+A$:GOTO10000
5000 PRINTCHR$(147)
5010 PRINT"[147]ALIGN PAPER IN PRINTER...
5020 [153]"THEN PRESS ANY KEY.
5030 GETZX$:IFZX$=""THEN5030
5040 GOTO6000
6000 FORI=132TO1STEP-1:IFL$(I)=BL$ORL$(I)=" "+RIGHT$(BL$,38)THEN6020
6010 Q=I:I=1
6020 NEXTI:H=0:OPEN2,4,7:IFQ/2=INT(Q/2)THENQ=Q-1
6060 U$=RIGHT$(BL$,38):G9$="O":FORI=1TOQSTEP2:IFMID$(L$(I),2,2)="@@"THEN8100
6100 IFRIGHT$(L$(I), 38)<>U$THEN6130
6110 IFRIGHT$(L$(I+1),38)<>U$THEN6130
6120 PRINT#2,CHR$(13);:GOTO6220
6130 IFG9$="L"THENW$=RIGHT$(L$(I),38)+RIGHT$(BL$,38):SV=1:GOTO6160
6140 IFG9$="R"THENW$=RIGHT$(BL$,38)+RIGHT$(L$(I),38):SV=1:GOTO6160
6150 W$=RIGHT$(L$(I),38)+RIGHT$(L$(I+1),38)
6160 FORJ=76TO1STEP-1:IFMID$(W$,J,1)<>" "THENW$=LEFT$(W$,J):J=1
6180 NEXTJ
6190 IFG9$="L"ORG9$="R"THENPRINT#2,SI$ W$ BS$:IFSV=1THENSV=0:GOTO6250
6200 IFG9$="L"ORG9$="R"THEN6220
6210 PRINT#2,W$
6220 NEXTI
6230 FORJ=I+INT(H)+2TO131STEP2:PRINT#2,CHR$(13);:NEXTJ:CLOSE2:GOTO9000
6250 H=H+.667:IFG9$="L"THEN6270
6260 W$=RIGHT$(BL$,38)+RIGHT$(L$(I+1),38):GOTO6160
6270 W$=RIGHT$(L$(I+1),38)+RIGHT$(BL$,38):GOTO6160
8100 A=4
8110 B$=MID$(L$(I),A,6):IFB$="DOUBLE"THENPRINT#2,CHR$(14);:GOTO8220
8120 IFB$="SINGLE"THENPRINT#2,CHR$(15);:GOTO8220
8130 IFB$="UP...R"THENG9$="R":GOTO8180
8140 IFB$="UP...L"THENG9$="L":GOTO8180
8150 IFB$="LOW..."THENG9$="O":PRINT#2,SI$;:GOTO8190
8160 IFB$="UP...M"THENG9$="O":GOTO8180
8170 GOTO8220
8180 CLOSE2:OPEN2,4:PRINT#2,CHR$(145);:GOTO8220
8190 CLOSE2:OPEN2,4,7:PRINT#2,CHR$(17);
8220 IFMID$(L$(I),A+6,2)="@@"THENA=A+8:GOTO8110
8230 GOTO6120
9000 READQ$:IFQ$="END"THENEND
9005 FORJ=1TOCT:L$(J)=BL$:NEXTJ
9010 GOTO9882
9570 POKE54296,15:POKE54277,9:POKE54273,34:POKE54272,75:POKE54276,17
9600 FORT=1TO40:NEXTT:FORL=54272TO54296:POKEL,0:NEXT:RETURN
9882 OPEN1,8,3,"0:"+Q$:SYS896:CT=VAL(LEFT$(A$,4))
9883 FORJ=1TOCT:SYS896:L$(J)=LEFT$(A$,39):NEXTJ:CLOSE1:GOTO9910
9910 CLOSE1:GOSUB9570:GOSUB9570:GOTO5000
10000 DIML$(148):PRINT"[147]":BL$=" ":BL$="="+BL$+BL$
10045 BD$="--------------------------------------"
10060 FORJ=896TO933:READX:POKE J,X:T=T+X:NEXTJ
10061 I9=0:I$=" ":LL=0:SI$=CHR$(15):BS$=CHR$(8):GOTO9000
11000 DATA160,2,177,45,153,137,0,200,192,6,208,246,162,1,32,198,255,32,228,255
11010 DATA201,13,240,11,164,142,145,140,200,132,142,196,139,208,238,76,204,255
12010 DATA SALES/INSTR.1
12011 DATA SALES/INSTR.2
12012 DATA SALES/INSTR.3
12020 DATA END